home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland Pascal with Objects 7.0 / WHEREIS.ZIP / WHUSAGE.INC < prev   
Text File  |  1992-10-27  |  2KB  |  34 lines
  1.  
  2. ;   FILENAME: WHUSAGE.INC
  3. ;
  4. ;   Copyright (c) 1988, 1992 by Borland International, Inc.
  5. ;
  6. ;   DESCRIPTION: This include file declares pascal style strings representing
  7. ;   the programs usage or help screen.
  8.  
  9.  
  10. ; Define a Pascal string containing the syntax for the program.
  11.  
  12. COPYRIGHT    EQU <" Copyright (c) 1988, 1992 by Borland International, Inc.",13,10>
  13. USAGE_SYNTAX EQU <"Syntax: WHEREIS [d:][path]filename filename filename [dos_command].....", 13, 10>
  14. U2           EQU <"  dos_command is a command surrounded by """",'', or []. It will be called",13,10>
  15. U3           EQU <"  for each file that is found. It should include at least one of these:",13,10>
  16. U4           EQU <"     %1 - Insert full path, filename and extension",13,10>
  17. U5           EQU <"     %2 - Filename and extension (no path)",13,10>
  18. U6           EQU <"     %3 - Only the path.",13,10>
  19. U7           EQU <"     %4 - Only the filename before the extension followed by a .",13,10>
  20. U8           EQU <"     %5 - Only the extension, preceeded by a .",13,10>
  21. U9           EQU <"  For example to delete all .BAK files:",13,10>
  22. U10          EQU <"     WHEREIS  *.BAK [DEL %2]",13,10>
  23. ;MakePascalString Syntax, <"WHEREIS ",Version,COPYRIGHT,USAGE_SYNTAX,U2,U3,U4,U5,U6,U7>
  24.  
  25. Syntax       db  "WHEREIS ",ProgramVersion,COPYRIGHT,USAGE_SYNTAX,U2,U3,U4,U5,U6,U7,U8,U9,U10
  26.              db  0
  27.  
  28. MakePascalString OnlyFirst,<"Only first parameter can have a drive and path on it.",13,10>
  29. MakePascalString OnlyOneCommand,<"Only on DOS command can be given.",13,10>
  30.  
  31. ; Define a pascal string representing a blank line
  32. MakePascalString BlankLine, <13, 10>
  33.  
  34.